********************************************************************************
/*

This file provides the Stata code necessary to reconstruct the tables and 
figures reported in Matthew Fuhrmann and James D. Kim, "Socialization, 
Self-Selection, and the Life Experiences of World Leaders: Why Business Experience 
Influences Defense Spending," The Journal of Politics, forthcoming

Date: October 26, 2024

*/
********************************************************************************

********************************************************************************
*Begin by changing the directory 
*Note to users: modify the line of code below so that it matches the relevant location on your computer
********************************************************************************

cd "/Users/jamesdkim/Library/CloudStorage/Dropbox/Experience Mechanisms/JOP data construction"

********************************************************************************
*Main Paper
********************************************************************************
********************************************************************************
*Table 2: Main Regression Results
********************************************************************************

use BEM-JOP-final, clear

**Model 1-3: post-office business experience only leaders as baseline category
*Model 1: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988, c(psar1)
eststo model3

**Model 4-6: No business leaders as baseline category
*Model 4: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988, c(psar1)
eststo model6

esttab using table1.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps ///
title(Regression Analysis of Defense Expenditures in NATO Countries. ///
\label{reg1})

********************************************************************************
*Appendix
********************************************************************************
* Table A1: Additional post-office business leaders: consultants
********************************************************************************

*Model 1: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz_consultant L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  , c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz_consultant L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz_consultant L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model3

*Model 4: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly_consultant L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  , c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly_consultant L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly_consultant L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model6

esttab using table2.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps ///
title(Additional post-office business leaders: consultants. ///
\label{reg2})

********************************************************************************
* Table A2: Additional post-o ce business leaders: consultants, advisors, and newspaper company directors
********************************************************************************

*Model 1: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz_alt L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz_alt L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz_alt L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model3

*Model 4: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly_alt L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly_alt L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly_alt L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model6

esttab using table3.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps ///
title(Additional post-o ce business leaders: consultants, advisors, and newspaper company directors. ///
\label{reg3})

********************************************************************************
* Table A3: Alternate DV: Defense spending per capita
********************************************************************************

*Model 1: All countries and years
xtpcse  dspendpct L.dspendpct L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  , c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  dspendpct L.dspendpct L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  dspendpct L.dspendpct L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model3

*Model 4: All countries and years
xtpcse  dspendpct L.dspendpct L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  , c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  dspendpct L.dspendpct L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  dspendpct L.dspendpct L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model6

esttab using table4.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps ///
title(Alternate DV: Defense spending per capita. ///
\label{reg4})

********************************************************************************
* Table A4: Alternate DV: Overall defense spending
********************************************************************************

*Model 1: All countries and years
xtpcse  defspend L.defspend L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  , c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  defspend L.defspend L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  defspend L.defspend L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model3

*Model 4: All countries and years
xtpcse  defspend L.defspend L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  , c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  defspend L.defspend L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  defspend L.defspend L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model6

esttab using table5.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps ///
title(Alternate DV: Overall defense spending. ///
\label{reg5})

********************************************************************************
* Table A5: Alternate DV: Change in defense spending per capita (change in percent GDP)
********************************************************************************

*Model 1: All countries and years
xtpcse  dspendpct_ch L.dspendpct_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  , c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  dspendpct_ch L.dspendpct_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  dspendpct_ch L.dspendpct_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model3

*Model 4: All countries and years
xtpcse  dspendpct_ch L.dspendpct_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  , c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  dspendpct_ch L.dspendpct_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  dspendpct_ch L.dspendpct_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model6

esttab using table6.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps ///
title(Alternate DV: Change in defense spending per capita (change in percent GDP). ///
\label{reg6})

********************************************************************************
* Table A6: Alternate DV: Change in defense spending relative to USA
********************************************************************************

*Model 1: All countries and years
xtpcse  diff_us L.diff_us L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  , c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  diff_us L.diff_us L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  diff_us L.diff_us L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model3

*Model 4: All countries and years
xtpcse  diff_us L.diff_us L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  , c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  diff_us L.diff_us L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  diff_us L.diff_us L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & year>1988, c(psar1)
eststo model6

esttab using table7.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps ///
title(Alternate DV: Change in defense spending relative to USA. ///
\label{reg7})

********************************************************************************
* Table A7: Including low-level business experience
********************************************************************************

*Model 1: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business_low L.nobiz_low L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business_low L.nobiz_low L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business_low L.nobiz_low L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988, c(psar1)
eststo model3

**Model 4-6: No business leaders as baseline category
*Model 4: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business_low L.postbizonly_low L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business_low L.postbizonly_low L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business_low L.postbizonly_low L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988, c(psar1)
eststo model6

esttab using table8.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps scalar(r2) ///
title(Including low-level business experience. ///
\label{reg8})

********************************************************************************
* Table A8: Excluding year-fixed effects
********************************************************************************

*Model 1: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war L.cpg_sw2014 i.ccode post_cw if nato==1 & ccode~=2, c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war L.cpg_sw2014 i.ccode if nato==1 & ccode~=2 & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war L.cpg_sw2014 i.ccode if nato==1 & ccode~=2 & year>1988, c(psar1)
eststo model3

*Model 4: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode post_cw if nato==1 & ccode~=2, c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode if nato==1 & ccode~=2 & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode if nato==1 & ccode~=2 & year>1988, c(psar1)
eststo model6

esttab using table9.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps scalar(r2) ///
title(Excluding year-fixed effects. ///
\label{reg9})

********************************************************************************
* Table A9: Standard error clustered by leaders
********************************************************************************

*Model 1: All countries and years
reg defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth /// 
war L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, vce(cluster leadername)
eststo model1

*Model 2: Cold war only 
reg  defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989, vce(cluster leadername)
eststo model2

*Model 3: Post-cold war only
reg defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988, vce(cluster leadername)
eststo model3

*Model 4: All countries and years
reg defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, vce(cluster leadername)
eststo model4

*Model 5: Cold war only 
reg defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989, vce(cluster leadername)
eststo model5

*Model 6: Post-cold war only
reg defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988, vce(cluster leadername)
eststo model6

esttab using table10.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps scalar(r2)  ///
title(Standard errors clustered by leaders. ///
\label{reg10})

********************************************************************************
* Table A10: Additional leader-level control variables: Age, gender, and education
********************************************************************************

*Model 1: All countries and years
xtpcse defspend_ch L.defspend_ch L.business L.nobiz L.age L.gender L.fln_field L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse defspend_ch L.defspend_ch L.business L.nobiz L.age L.gender L.fln_field L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse defspend_ch L.defspend_ch L.business L.nobiz L.age L.gender L.fln_field L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988, c(psar1)
eststo model3

*Model 4: All countries and years
xtpcse defspend_ch L.defspend_ch L.business L.postbizonly L.age L.gender L.fln_field L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year  if nato==1 & ccode~=2, c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse defspend_ch L.defspend_ch L.business L.postbizonly L.age L.gender L.fln_field L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse defspend_ch L.defspend_ch L.business L.postbizonly L.age L.gender L.fln_field L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988, c(psar1)
eststo model6

esttab using table11.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps scalar(r2) ///
title(Additional leader-level control variables: Education, age, and gender. ///
\label{reg11})

********************************************************************************
* Table A11: Excluding the members of the board of directors cases
********************************************************************************

*Model 1: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business_nobod L.nobiz_nobod L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business_nobod L.nobiz_nobod L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business_nobod L.nobiz_nobod L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988, c(psar1)
eststo model3

*Model 4: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business_nobod L.postbizonly_nobod L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2, c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business_nobod L.postbizonly_nobod L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business_nobod L.postbizonly_nobod L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988, c(psar1)
eststo model6

esttab using table12.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps scalar(r2) ///
title(Excluding the members of the board of directors cases. ///
\label{reg12})

********************************************************************************
** Table A12: Excluding leaders with less than ten post-office years
********************************************************************************

**Model 1-3: post-office business experience only leaders as baseline category
*Model 1: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2  & outyear <2015 , c(psar1)
eststo model1

*Model 2: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989 & outyear <2015, c(psar1)
eststo model2

*Model 3: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business L.nobiz L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988  & outyear <2015, c(psar1)
eststo model3

**Model 4-6: No business leaders as baseline category
*Model 4: All countries and years
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & outyear <2015, c(psar1)
eststo model4

*Model 5: Cold war only 
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year<1989 & outyear <2015, c(psar1)
eststo model5

*Model 6: Post-cold war only
xtpcse  defspend_ch L.defspend_ch L.business L.postbizonly L.econ_finance L.lnrgdpe  L.growth ///
war   L.cpg_sw2014 i.ccode i.year if nato==1 & ccode~=2 & year>1988 & outyear <2015, c(psar1)
eststo model6

esttab using table13.tex, replace label se nodepvars ///
star(+ 0.10 * 0.05 ** .01 *** .001) nogaps scalar(r2) ///
title(Excluding leaders with less than ten post-office years. ///
\label{reg13})

********************************************************************************
** Table A13: Defense spending trends and business leaders
********************************************************************************

* Predicting the "presence" of business leaders
* 3 years
reg business dstrend_3 i.ccode i.year if nato==1 & ccode~=2
* 5 years
reg business dstrend_5 i.ccode i.year if nato==1 & ccode~=2

* Predicting the "election" of business leaders
* 3 years
reg new_business dstrend_3 i.ccode i.year if nato==1 & ccode~=2
* 5 years
reg new_business dstrend_5 i.ccode i.year if nato==1 & ccode~=2
